100 POKE147,0:SYS57812"MASTER INPUT.OBJ",8,1:SYS62631
110 DIMT$(10)
120 REM
130 POKE 53281,0 : REM BLACK BACKGROUND
140 MI=193*256 : REM MSTR. INP. ADDRESS
150 PRINT"[147]	"TAB(14)"[158][201][206][208][213][212] [196][197][205][207] #1"
155 PRINT"    [154][208]RESS [210][197][212][213][210][206] AFTER ENTERING EACH"
157 PRINT"   'FIELD' (HOURS, MINUTES, SECONDS)."
160 PRINT"[159]   [208]LEASE ENTER THE TIME ->  00:00:00":CX=29:CY=10:GOSUB430
170 FOR C = 0 TO 2
180 CX=29+3*C : CY=10 : GOSUB 430
190 A$ = "  " : REM DEFINE STRING
200 SYSMI,128+16+1,2,ASC("0"),1,3,A$
210 T$(C) = A$
220 NEXT C
230 PRINT:PRINT"[156]         [212]HE TIME IS [158]";T$(0);":";T$(1);":";T$(2)
240 REM
250 PRINT"       [208]RESS [210][197][212][213][210][206] FOR NEXT DEMO"
260 GETA$:IFA$<>CHR$(13)THEN260
270 GOTO540
280 REM
290 REM *****************************
300 REM ** FORMAT FOR MASTER INPUT **
310 REM *****************************
320 REM
330 REM IN=INTYPE,LN=LENGTH,DF=DEFAULT,
340 REM C1=COLOR1,C2=COLOR2,STRING NAME
350 REM
360 REM ('STRING NAME' CAN BE ANY NON-
370 REM DIMENSIONED STRING VARIABLE,
380 REM FOR EXAMPLE: A$,M$,ZZ$,MN$,..)
390 REM
400 SYS49152,IN,LN,DF,C1,C2,T$
410 REM
420 REM THIS POSITIONS THE CURSOR
430 REM
440 REM CX=X-CURSOR (0-39) POSITION
450 REM CY=Y-CURSOR (0-23) POSITION
460 REM
470 POKE214,CY:PRINT:POKE211,CX:RETURN
480 REM
490 REM
500 REM *******************************
510 REM ****** END OF SUBROUTINE ******
520 REM *******************************
530 REM
540 PRINT"[147]"TAB(14)"[158][201][206][208][213][212] [196][197][205][207] #2"
550 CX=16:CY=9:GOSUB420:GT=2
560 PRINT"[154][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
570 FORCY=10TO14:READT$(CY-10)
580 T$=T$(CY-10)+":":CX=16-LEN(T$):GOSUB420:PRINT"[156]"T$"[154][221]";
590 PRINT"[153][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][154][221]":NEXT
600 RESTORE
610 PRINTTAB(16)"[154][173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
620 FORL=0TO4:T$(L)="":NEXT
630 P=0 : REM INIT LOOP COUNTER
640 CY=10+P:CX=17:GOSUB420:A$="                   "
650 SYSMI,255-(32+8),20,ASC("[164]"),10,13,A$
660 T$(P)=A$:P=P+1:IFP<5THEN640
670 PRINT"[147]"
680 CY=5:CX=0:GOSUB420
690 REM
700 PRINT"[159] [217]OUR NAME IS [154]"TAB(18)T$(0)
710 PRINT"[159] [217]OU LIVE AT [154]"TAB(18)T$(1)
720 PRINTTAB(18)T$(2)
730 PRINT"[159] [217]OUR PHONE # IS[154]"TAB(18)T$(3)
740 PRINT"[159] [193]ND THE OTHER INFO YOU GAVE ME IS"
750 PRINT"[154]    "T$(4)
760 PRINT"      [208]RESS [210][197][212][213][210][206] FOR NEXT DEMO"
770 GETA$:IFA$<>CHR$(13)THEN770
780 REM
790 REM ===============================
800 REM ===============================
810 REM ===============================
820 REM
830 DATA"[206]AME","[193]DDRESS","[195]ITY,[211]TATE,[218]IP"," [208]HONE NUMBER ","[207]THER"
840 REM
850 REM
860 PRINT"[147]	"CHR$(142)TAB(14)"[158]INPUT DEMO #3":D$="A":P=0
870 CX=9:CY=8:GOSUB420:PRINT"[159]ENTER "D$" NUMBER:"
880 CX=9:CY=10:GOSUB420:PRINT"[154][172][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][187]"
890 PRINTTAB(9)"[161][156]                    [154][146][161]"
900 PRINTTAB(9)"[188][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][146][190]"
910 CX=10:CY=11:GOSUB420
920 A$="0"
930 SYSMI,128+32+8+1,20,ASC(" "),1,4,A$
940 T(P)=VAL(A$):P=P+1:IFP<2THEND$="ANOTHER":GOTO870
950 PRINT:PRINT"[159]     THE PRODUCT OF THE NUMBERS IS:"
960 AN$=STR$(T(0)*T(1)):PRINT"[154]"TAB(20-(LEN(AN$)/2))AN$
970 PRINT"       PRESS RETURN FOR NEXT DEMO"
980 GETA$:IFA$<>CHR$(13)THEN980
990 REM
1000 REM
1010 PRINT"[147]	"TAB(14)"[158][201][206][208][213][212] [196][197][205][207] #4"
1020 PRINT"[159]     [197]NTER AN AMOUNT OF MONEY:":A$="   0.00"
1030 PRINT"[156]           -=>          <=-[157][157][157][157][157][157][157][157][157][157][157]";
1040 REM CY=7 : CX=15 : GOSUB 470
1050 SYSMI,128+94+8+1,7,ASC("$"),7,5,A$
1060 PRINT
1070 PRINT"[154]         [217]OU ENTERED $ "A$
1080 PRINT""TAB(13)"[208]RESS [210][197][212][213][210][206]"
1090 GETA$:IFA$<>CHR$(13)THEN1090
1100 REM
1110 REM
1120 PRINT"[147]";CHR$(9);CHR$(142);CHR$(8)
1130 A$="       [194]                        [194]"
1140 PRINT"       [152][176][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][174]"
1150 PRINTA$
1160 PRINT"       [194] [154]PLEASE CHOOSE:[152]         [194]"
1170 PRINT A$
1180 PRINT"       [194]  1.[154] RUN THE DEMO AGAIN[152] [194]"
1190 PRINTA$
1200 PRINT"       [194]  2.[154] RETURN TO LOADSTAR[152] [194]"
1210 PRINTA$
1220 PRINT"       [173][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][189][154]"
1230 GETA$:IFA$<>"1"ANDA$<>"2"THEN1230
1240 IF A$="1" THEN 120
1250 REM
1260 OPEN15,8,15,"R0:HELLO CONNECT=HELLO CONNECT":INPUT#15,ER:CLOSE15
1270 IF ER<>63 THEN PRINT"[147]":END
1280 A$="HELLO CONNECT":Q$=CHR$(34):POKE53281,7:POKE53280,7:PRINT"[147]"
1290 POKE198,0:POKE1144,32
1300 PRINT"[158]LOAD"Q$A$Q$",8"
1310 PRINT"RUN ":POKE631,13:POKE632,13:POKE198,2:END
1320 POKE214,15:PRINT:PRINT"  [155][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][152]"
1330 FORI=1TO3:PRINT"                                      ":NEXT:POKE53272,21
1340 PRINT"        PUBLISHED ON LOADSTAR #58     "
1350 PRINT"      SUBSCRIPTIONS 1-800-831-2694    "
1360 PRINT"     CHANGING[160]THIS NOTICE IS ILLEGAL  "
1370 PRINT"                                      "
1380 PRINT"  [151][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185]"
1390 AU$="MASTER INPUT":POKE214,17:PRINT:PRINTSPC(20-LEN(AU$)/2)"[152]"AU$
1400 AU$="BY JAMES IANNI  (C) 1988":POKE214,18:PRINT
1410 PRINTSPC(20-LEN(AU$)/2)"[152]"AU$"":RETURN